TOP

Snake Case Função para LibreOffice Calc

SNAKECASE() Descrição

A função SNAKECASE() foi projetada para combinar palavras usando sublinhados, ou seja, uma única palavra é retornada como resultado, por exemplo. «snake_case_function» .

Snake Case divide uma sequência de palavras separadas por espaços, hífens, sublinhados ou alterações de maiúsculas e minúsculas e, em seguida, converte essas palavras em minúsculas e as concatena com um separador de sublinhado ("_").

A função SNAKECASE() pode ser útil na programação para converter nomes de variáveis de acordo com convenções de escrita de código aceitas (coding conventions) .

StarBASIC código para função Snake Case

Aqui está o código de macro para criar uma função personalizada que pode converter texto em palavras únicas separadas por sublinhados (Snake Case) em LibreOffice Calc.

Abra o menu Tools - Macros - Edit Macros..., selecione Module1 e copie o seguinte texto no módulo:

Function SnakeCase(ByVal str As String) As String
  'moonexcel.com.ua
  Dim words As Variant
  Dim FCalc  As Object
  
  FCalc = CreateUnoService("com.sun.star.sheet.FunctionAccess")
  
  str = Replace(str,"-"," ")
  str = Replace(str,"_"," ")  
  str = FCalc.callFunction("TRIM", Array(str))  
  str = FCalc.callFunction("REGEX", Array(str,"([:lower:])([:upper:])","$1 $2","g"))
    
  str = LCase(str)
  words = Split(str, " ")            
    
  SnakeCase = Join(words,"_")
End Function

Em seguida, feche Macro Editor, retorne para LibreOffice Calc e use nossa nova função em qualquer célula.